home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t2.d64 / coin flip 1.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  263b  |  14 lines
  1. 100 REM***COIN FLIPPER #1
  2. 200 REM***FIND OUT HOW MANY FLIPS
  3. 210 PRINT"[147]";
  4. 220 INPUT "HOW MANY COIN FLIPS";N
  5. 230 PRINT
  6. 400 REM***FLIP COIN N TIMES, PRINT EACH EVENT
  7. 410 FOR K = 1 TO N
  8. 420 COIN = INT(2*RND(1))
  9. 430 IF COIN = 0 THEN PRINT "TAILS",
  10. 440 IF COIN = 1 THEN PRINT "HEADS",
  11. 450 NEXT K
  12. 460 PRINT
  13. 999 END
  14.